home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / WebSites / MailingLists / AMOSLIST.0799 / 000173_nobody_Wed Jul 28 19:47:47 1999.msg < prev    next >
Internet Message Format  |  1999-08-02  |  3KB
  1. Received: from onelist.com (pop.onelist.com [209.207.135.253])
  2.     by osf1.gmu.edu (8.8.8/8.8.8) with SMTP id TAA11378
  3.     for <mcox4@osf1.gmu.edu>; Wed, 28 Jul 1999 19:47:47 -0400 (EDT)
  4. Received: (qmail 13782 invoked by alias); 28 Jul 1999 23:47:10 -0000
  5. Received: (qmail 13747 invoked from network); 28 Jul 1999 23:47:09 -0000
  6. Received: from unknown (HELO web901.mail.yahoo.com) (128.11.23.76) by pop.onelist.com with SMTP; 28 Jul 1999 23:47:09 -0000
  7. Message-ID: <19990728234412.2824.rocketmail@web901.mail.yahoo.com>
  8. Received: from [62.188.142.92] by web901.mail.yahoo.com; Thu, 29 Jul 1999 00:44:12 BST
  9. Date: Thu, 29 Jul 1999 00:44:12 +0100 (BST)
  10. From: =?iso-8859-1?q?Claude=20Heiland-Allen?= <cheilandallen@yahoo.co.uk>
  11. To: amos-list@onelist.com
  12. Mailing-List: list amos-list@onelist.com; contact amos-list-owner@onelist.com
  13. Delivered-To: mailing list amos-list@onelist.com
  14. Precedence: bulk
  15. List-Unsubscribe: <mailto:amos-list-unsubscribe@ONElist.com>
  16. Reply-to: amos-list@onelist.com
  17. Mime-Version: 1.0
  18. Content-Type: text/plain; charset=iso-8859-1
  19. Content-Transfer-Encoding: 8bit
  20. Subject: [amos-list] amiga mouse driver
  21. Status: O
  22. X-Status: 
  23.  
  24. From: =?iso-8859-1?q?Claude=20Heiland-Allen?= <cheilandallen@yahoo.co.uk>
  25.  
  26. Hi
  27.  
  28. Here is that code I promised to read the second mouse
  29. port. I
  30. haven't tested it myself, but it looks feasible, and
  31. was from
  32. a mag (I think Amiga Shopper).  Not exactly OS legal,
  33. but that
  34. doesn't matter anymore.
  35.  
  36. Someone asked quite a while ago though...
  37.  
  38.  
  39. Claude
  40.  
  41.  
  42.  
  43.  
  44. ' magic registers
  45.  
  46. _JOY0DAT = $DFF00A  ' standard mouse port
  47. _JOY1DAT = $DFF00C  ' second mouse port
  48.  
  49. ' initialise
  50.  
  51. mousex = 0
  52. mousey = 0
  53.  
  54. counterx = Peek(_JOY1DAT+1)
  55. countery = Peek(_JOY1DAT  )
  56.  
  57. DO      ' main loop
  58.  
  59.     ' should probably waitvbl, but not strictly
  60. necessary
  61.  
  62.     oldcounterx = counterx
  63.     oldcountery = countery
  64.  
  65.     counterx = Peek(_JOY1DAT+1)
  66.     countery = Peek(_JOY1DAT  )
  67.  
  68.     deltax = counterx - oldcounterx
  69.     deltay = countery - oldcountery
  70.  
  71.     ' counters wrap, correct deltas
  72.     IF deltax < -128 THEN deltax = deltax + 256
  73.     IF deltax >  127 THEN deltax = deltax - 256
  74.     IF deltay < -128 THEN deltay = deltay + 256
  75.     IF deltay >  127 THEN deltay = deltay - 256
  76.  
  77.     ' do fancy effects (eg acceleration, gravity) here
  78.  
  79.     mousex = mousex + deltax
  80.     mousey = mousey + deltay
  81.  
  82.     ' keep within screen bounds here
  83.  
  84. LOOP
  85.  
  86. _____________________________________________________________
  87. DO YOU YAHOO!?
  88. Get your free @yahoo.co.uk address at http://mail.yahoo.co.uk
  89.  
  90.  
  91. --------------------------- ONElist Sponsor ----------------------------
  92.  
  93. How do you enter ONElist�s WEEKLY DRAWING for $100?
  94. By joining the FRIENDS & FAMILY program.  For details, go to
  95. http://www.onelist.com/info/onereachsplash3.html
  96.  
  97. ------------------------------------------------------------------------
  98. Official AMOS WWW: http://members.xoom.com/AmosFactory/front.html